(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     30327,        856]
NotebookOptionsPosition[     29980,        840]
NotebookOutlinePosition[     30413,        858]
CellTagsIndexPosition[     30370,        855]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{"f", "\[Element]", 
  SuperscriptBox["\[DoubleStruckCapitalC]", "n"]}], "\[IndentingNewLine]", 
 RowBox[{"g", "\[Element]", 
  SuperscriptBox["\[DoubleStruckCapitalC]", "m"]}], "\[IndentingNewLine]", 
 RowBox[{"F", "\[Element]", 
  SubscriptBox["\[DoubleStruckCapitalC]", "mxn"]}], "\[IndentingNewLine]", 
 RowBox[{
  SuperscriptBox["F", "*"], "\[Element]", 
  SubscriptBox["\[DoubleStruckCapitalC]", "nxm"]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"(", "Ff", ")"}], 
   RowBox[{"(", "k", ")"}]}], "=", 
  RowBox[{
   RowBox[{
    SuperscriptBox["f", "^"], 
    RowBox[{"(", 
     SubscriptBox["\[Omega]", "k"], ")"}]}], "=", 
   RowBox[{
    UnderoverscriptBox["\[Sum]", "j", "n"], 
    RowBox[{
     SubscriptBox["f", "j"], 
     SuperscriptBox["\[ExponentialE]", 
      FractionBox[
       RowBox[{
        RowBox[{"-", "2"}], 
        SubscriptBox["\[ImaginaryI]\[Pi]j\[Omega]", "k"]}], 
       "m"]]}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"F", "=", 
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "2"}], 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "1"], 
         SubscriptBox["j", "1"]}], "m"]], 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "2"}], 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "1"], 
         SubscriptBox["j", "2"]}], "m"]], "\[CenterEllipsis]", 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "2"}], 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "1"], 
         SubscriptBox["j", 
          RowBox[{"n", "-", "1"}]]}], "m"]], 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "2"}], 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "1"], 
         SubscriptBox["j", "n"]}], "m"]]},
     {
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "2"}], 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "2"], 
         SubscriptBox["j", "1"]}], "m"]], 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "2"}], 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "2"], 
         SubscriptBox["j", "2"]}], "m"]], "\[CenterEllipsis]", 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "2"}], 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "2"], 
         SubscriptBox["j", 
          RowBox[{"n", "-", "1"}]]}], "m"]], 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "2"}], 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "2"], 
         SubscriptBox["j", "n"]}], "m"]]},
     {"\[VerticalEllipsis]", "\[VerticalEllipsis]", "\[DescendingEllipsis]", 
      "\[VerticalEllipsis]", "\[VerticalEllipsis]"},
     {
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "2"}], 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", 
          RowBox[{"m", "-", "1"}]], 
         SubscriptBox["j", "1"]}], "m"]], 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "2"}], 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", 
          RowBox[{"n", "-", "1"}]], 
         SubscriptBox["j", "2"]}], "m"]], "\[CenterEllipsis]", 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "2"}], 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", 
          RowBox[{"n", "-", "1"}]], 
         SubscriptBox["j", 
          RowBox[{"n", "-", "1"}]]}], "m"]], 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "2"}], 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", 
          RowBox[{"n", "-", "1"}]], 
         SubscriptBox["j", "n"]}], "m"]]},
     {
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "2"}], 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "m"], 
         SubscriptBox["j", "1"]}], "m"]], 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "2"}], 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "m"], 
         SubscriptBox["j", "2"]}], "m"]], "\[CenterEllipsis]", 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "2"}], 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "m"], 
         SubscriptBox["j", 
          RowBox[{"n", "-", "1"}]]}], "m"]], 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "2"}], 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "m"], 
         SubscriptBox["j", "n"]}], "m"]]}
    }], "\[NoBreak]", ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[LeftAngleBracket]", 
   RowBox[{"Ff", ",", "g"}], "\[RightAngleBracket]"}], "=", 
  RowBox[{
   RowBox[{
    UnderoverscriptBox["\[Sum]", "k", "m"], 
    RowBox[{
     SuperscriptBox[
      RowBox[{"[", 
       RowBox[{
        RowBox[{"(", "Ff", ")"}], 
        RowBox[{"(", "k", ")"}]}], "]"}], "*"], 
     SubscriptBox["g", "k"]}]}], "=", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     UnderoverscriptBox["\[Sum]", "k", "m"], 
     RowBox[{
      SuperscriptBox[
       RowBox[{"[", 
        RowBox[{
         UnderoverscriptBox["\[Sum]", "j", "n"], 
         RowBox[{
          SubscriptBox["f", "j"], 
          SuperscriptBox["\[ExponentialE]", 
           FractionBox[
            RowBox[{
             RowBox[{"-", "2"}], 
             SubscriptBox["\[ImaginaryI]\[Pi]j\[Omega]", "k"]}], "m"]]}]}], 
        "]"}], "*"], 
      SubscriptBox["g", "k"]}]}], "=", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      UnderoverscriptBox["\[Sum]", "k", "m"], 
      RowBox[{
       RowBox[{"[", 
        RowBox[{
         UnderoverscriptBox["\[Sum]", "j", "n"], 
         RowBox[{
          SubscriptBox["f", "j"], 
          SuperscriptBox["\[ExponentialE]", 
           FractionBox[
            RowBox[{"2", 
             SubscriptBox["\[ImaginaryI]\[Pi]j\[Omega]", "k"]}], "m"]]}]}], 
        "]"}], 
       SubscriptBox["g", "k"]}]}], "=", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       UnderoverscriptBox["\[Sum]", "j", "n"], 
       RowBox[{
        RowBox[{"[", 
         RowBox[{
          UnderoverscriptBox["\[Sum]", "k", "m"], 
          RowBox[{
           SubscriptBox["g", "k"], 
           SuperscriptBox["\[ExponentialE]", 
            FractionBox[
             RowBox[{"2", 
              SubscriptBox["\[ImaginaryI]\[Pi]j\[Omega]", "k"]}], "m"]]}]}], 
         "]"}], 
        SuperscriptBox[
         SubscriptBox["f", "j"], "*"]}]}], "=", 
      RowBox[{"\[LeftAngleBracket]", 
       RowBox[{"f", ",", 
        RowBox[{
         SuperscriptBox["F", "*"], "g"}]}], 
       "\[RightAngleBracket]"}]}]}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["F", "*"], "g"}], ")"}], 
   RowBox[{"(", "j", ")"}]}], "=", 
  SubscriptBox["f", "j"]}], "\[IndentingNewLine]", 
 RowBox[{
  SuperscriptBox["F", "*"], "=", 
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{"2", 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "1"], 
         SubscriptBox["j", "1"]}], "m"]], 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{"2", 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "2"], 
         SubscriptBox["j", "1"]}], "m"]], "\[CenterEllipsis]", 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{"2", 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", 
          RowBox[{"m", "-", "1"}]], 
         SubscriptBox["j", "1"]}], "m"]], 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{"2", 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "m"], 
         SubscriptBox["j", "1"]}], "m"]]},
     {
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{"2", 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "1"], 
         SubscriptBox["j", "2"]}], "m"]], 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{"2", 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "2"], 
         SubscriptBox["j", "2"]}], "m"]], "\[CenterEllipsis]", 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{"2", 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", 
          RowBox[{"m", "-", "1"}]], 
         SubscriptBox["j", "2"]}], "m"]], 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{"2", 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "m"], 
         SubscriptBox["j", "2"]}], "m"]]},
     {"\[VerticalEllipsis]", "\[VerticalEllipsis]", "\[DescendingEllipsis]", 
      "\[VerticalEllipsis]", "\[VerticalEllipsis]"},
     {
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{"2", 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "1"], 
         SubscriptBox["j", 
          RowBox[{"n", "-", "1"}]]}], "m"]], 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{"2", 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "2"], 
         SubscriptBox["j", 
          RowBox[{"n", "-", "1"}]]}], "m"]], "\[CenterEllipsis]", 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{"2", 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", 
          RowBox[{"m", "-", "1"}]], 
         SubscriptBox["j", 
          RowBox[{"n", "-", "1"}]]}], "m"]], 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{"2", 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "m"], 
         SubscriptBox["j", 
          RowBox[{"n", "-", "1"}]]}], "m"]]},
     {
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{"2", 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "1"], 
         SubscriptBox["j", "n"]}], "m"]], 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{"2", 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "2"], 
         SubscriptBox["j", "n"]}], "m"]], "\[CenterEllipsis]", 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{"2", 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", 
          RowBox[{"m", "-", "1"}]], 
         SubscriptBox["j", "n"]}], "m"]], 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{"2", 
         SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "m"], 
         SubscriptBox["j", "n"]}], "m"]]}
    }], "\[NoBreak]", ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["F", "*"], "Ff"}], ")"}], 
   RowBox[{"(", "j", ")"}]}], "=", 
  RowBox[{
   RowBox[{
    UnderoverscriptBox["\[Sum]", "k", "m"], 
    RowBox[{
     RowBox[{"[", 
      RowBox[{
       RowBox[{"(", "Ff", ")"}], 
       RowBox[{"(", "k", ")"}]}], "]"}], 
     SuperscriptBox["\[ExponentialE]", 
      FractionBox[
       RowBox[{"2", 
        SubscriptBox["\[ImaginaryI]\[Pi]j\[Omega]", "k"]}], "m"]]}]}], "=", 
   RowBox[{
    UnderoverscriptBox["\[Sum]", "k", "m"], 
    RowBox[{
     RowBox[{"[", 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "s", "n"], 
       RowBox[{
        SubscriptBox["f", "s"], 
        SuperscriptBox["\[ExponentialE]", 
         FractionBox[
          RowBox[{
           RowBox[{"-", "2"}], 
           SubscriptBox["\[ImaginaryI]\[Pi]s\[Omega]", "k"]}], "m"]]}]}], 
      "]"}], 
     SuperscriptBox["\[ExponentialE]", 
      FractionBox[
       RowBox[{"2", 
        SubscriptBox["\[ImaginaryI]\[Pi]j\[Omega]", "k"]}], 
       "m"]]}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"f", "=", 
  RowBox[{
   SubscriptBox["e", "t"], "=", 
   RowBox[{"(", 
    RowBox[{
    "0", ",", "0", ",", "\[CenterEllipsis]", ",", "1", ",", 
     "\[CenterEllipsis]", ",", "0", ",", "0"}], 
    ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["F", "*"], 
     SubscriptBox["Fe", "t"]}], ")"}], 
   RowBox[{"(", "j", ")"}]}], "=", 
  RowBox[{
   RowBox[{
    UnderoverscriptBox["\[Sum]", "k", "m"], 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      FractionBox[
       RowBox[{
        RowBox[{"-", "2"}], 
        SubscriptBox["\[ImaginaryI]\[Pi]t\[Omega]", "k"]}], "m"]], 
     SuperscriptBox["\[ExponentialE]", 
      FractionBox[
       RowBox[{"2", 
        SubscriptBox["\[ImaginaryI]\[Pi]j\[Omega]", "k"]}], "m"]]}]}], "=", 
   RowBox[{
    UnderoverscriptBox["\[Sum]", "k", "m"], 
    SuperscriptBox["\[ExponentialE]", 
     FractionBox[
      RowBox[{"2", 
       SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
       RowBox[{"(", 
        RowBox[{"j", "-", "t"}], ")"}]}], 
      "m"]]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SuperscriptBox["F", "*"], "F"}], "=", 
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"m", 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"1", "-", "2"}], ")"}]}], "m"]]}], "\[CenterEllipsis]", 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"(", 
             RowBox[{"n", "-", "1"}], ")"}]}], ")"}]}], "m"]]}], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"1", "-", "n"}], ")"}]}], "m"]]}]},
     {
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"2", "-", "1"}], ")"}]}], "m"]]}], "m", 
      "\[CenterEllipsis]", 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"2", "-", 
            RowBox[{"(", 
             RowBox[{"n", "-", "1"}], ")"}]}], ")"}]}], "m"]]}], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"2", "-", "n"}], ")"}]}], "m"]]}]},
     {"\[VerticalEllipsis]", "\[VerticalEllipsis]", "\[DescendingEllipsis]", 
      "\[VerticalEllipsis]", "\[VerticalEllipsis]"},
     {
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"n", "-", "1"}], ")"}], "-", "1"}], ")"}]}], "m"]]}], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"n", "-", "1"}], ")"}], "-", "2"}], ")"}]}], "m"]]}], 
      "\[CenterEllipsis]", "m", 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"n", "-", "1"}], ")"}], "-", "n"}], ")"}]}], "m"]]}]},
     {
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"n", "-", "1"}], ")"}]}], "m"]]}], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"n", "-", "2"}], ")"}]}], "m"]]}], "\[CenterEllipsis]", 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"n", "-", 
            RowBox[{"(", 
             RowBox[{"n", "-", "1"}], ")"}]}], ")"}]}], "m"]]}], "m"}
    }], "\[NoBreak]", ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SuperscriptBox["F", "*"], "F"}], "=", 
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"1", "-", "1"}], ")"}]}], "m"]]}], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"1", "-", "2"}], ")"}]}], "m"]]}], "\[CenterEllipsis]", 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"(", 
             RowBox[{"n", "-", "1"}], ")"}]}], ")"}]}], "m"]]}], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"1", "-", "n"}], ")"}]}], "m"]]}]},
     {
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"2", "-", "1"}], ")"}]}], "m"]]}], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"2", "-", "2"}], ")"}]}], "m"]]}], "\[CenterEllipsis]", 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"2", "-", 
            RowBox[{"(", 
             RowBox[{"n", "-", "1"}], ")"}]}], ")"}]}], "m"]]}], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"2", "-", "n"}], ")"}]}], "m"]]}]},
     {"\[VerticalEllipsis]", "\[VerticalEllipsis]", "\[DescendingEllipsis]", 
      "\[VerticalEllipsis]", "\[VerticalEllipsis]"},
     {
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"n", "-", "1", "-", "1"}], ")"}]}], "m"]]}], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"n", "-", "1", "-", "2"}], ")"}]}], "m"]]}], 
      "\[CenterEllipsis]", 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"n", "-", "1", "-", 
            RowBox[{"(", 
             RowBox[{"n", "-", "1"}], ")"}]}], ")"}]}], "m"]]}], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"n", "-", "1", "-", "n"}], ")"}]}], "m"]]}]},
     {
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"n", "-", "1"}], ")"}]}], "m"]]}], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"n", "-", "2"}], ")"}]}], "m"]]}], "\[CenterEllipsis]", 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"n", "-", 
            RowBox[{"(", 
             RowBox[{"n", "-", "1"}], ")"}]}], ")"}]}], "m"]]}], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"n", "-", "n"}], ")"}]}], "m"]]}]}
    }], "\[NoBreak]", ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SuperscriptBox["F", "*"], "F"}], "=", 
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", "0", ")"}]}], "m"]]}], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"-", "1"}], ")"}]}], "m"]]}], "\[CenterEllipsis]", 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"2", "-", "n"}], ")"}]}], "m"]]}], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"1", "-", "n"}], ")"}]}], "m"]]}]},
     {
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", "1", ")"}]}], "m"]]}], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", "0", ")"}]}], "m"]]}], "\[CenterEllipsis]", 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"3", "-", "n"}], ")"}]}], "m"]]}], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"2", "-", "n"}], ")"}]}], "m"]]}]},
     {"\[VerticalEllipsis]", "\[VerticalEllipsis]", "\[DescendingEllipsis]", 
      "\[VerticalEllipsis]", "\[VerticalEllipsis]"},
     {
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"n", "-", "2"}], ")"}]}], "m"]]}], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"n", "-", "3"}], ")"}]}], "m"]]}], "\[CenterEllipsis]", 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", "0", ")"}]}], "m"]]}], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"-", "1"}], ")"}]}], "m"]]}]},
     {
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"n", "-", "1"}], ")"}]}], "m"]]}], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{"n", "-", "2"}], ")"}]}], "m"]]}], "\[CenterEllipsis]", 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", "1", ")"}]}], "m"]]}], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", "k", "m"], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"2", 
          SubscriptBox["\[ImaginaryI]\[Pi]\[Omega]", "k"], 
          RowBox[{"(", "0", ")"}]}], "m"]]}]}
    }], "\[NoBreak]", ")"}]}]}], "Input",
 CellChangeTimes->{
  3.52874052679115*^9, 3.5287406828020735`*^9, {3.5287408335316944`*^9, 
   3.528740887533783*^9}, {3.5287409455030985`*^9, 3.5287410393314657`*^9}, {
   3.528741101736035*^9, 3.528741218991741*^9}, {3.5287412502575293`*^9, 
   3.528741432688964*^9}, {3.5287415764311857`*^9, 3.528741658480879*^9}, {
   3.5287417099148207`*^9, 3.5287417253627043`*^9}, {3.5287417876602674`*^9, 
   3.5287418757453055`*^9}, {3.528741909867257*^9, 3.5287420355824475`*^9}, {
   3.5287420772508307`*^9, 3.5287421755324526`*^9}, {3.528742472439434*^9, 
   3.528742478537783*^9}, {3.5287425435185003`*^9, 3.5287426081721983`*^9}, {
   3.528742692896044*^9, 3.5287430622851715`*^9}, {3.528743146476987*^9, 
   3.528743209950618*^9}, {3.528743251531996*^9, 3.5287433744000235`*^9}, {
   3.5287434516564426`*^9, 3.52874346122499*^9}, {3.528743501564297*^9, 
   3.528743560832687*^9}, {3.528743643963442*^9, 3.5287438610668592`*^9}, {
   3.528743933590008*^9, 3.5287440969913535`*^9}, {3.5287445679902935`*^9, 
   3.5287445985220394`*^9}, {3.5287447578311515`*^9, 
   3.5287447733920417`*^9}, {3.5287456385135236`*^9, 
   3.5287456745765867`*^9}, {3.5287458017768617`*^9, 3.528745842505191*^9}, {
   3.528746177486351*^9, 3.5287462048229146`*^9}, {3.5287463162982903`*^9, 
   3.5287463477870913`*^9}, {3.5287465202259545`*^9, 3.528746636850625*^9}, {
   3.528747149011919*^9, 3.5287471556172967`*^9}, 3.528748350804658*^9, {
   3.5287485613647013`*^9, 3.5287487866795883`*^9}, {3.528748876639734*^9, 
   3.528748896470868*^9}, {3.5287491134062757`*^9, 3.5287492973547974`*^9}, {
   3.52877533263393*^9, 3.528775340444377*^9}, {3.528995825266387*^9, 
   3.5289959248450828`*^9}, {3.5289959601020994`*^9, 
   3.5289960124810953`*^9}, {3.5289961520210767`*^9, 3.528996164299779*^9}, {
   3.5289962216140575`*^9, 3.528996335400565*^9}, {3.5289963741107793`*^9, 
   3.5289963761218944`*^9}, {3.528996469778251*^9, 3.5289965763123446`*^9}, {
   3.5289966145085297`*^9, 3.5289967556276007`*^9}},
 FontSize->24]
},
WindowSize->{788, 490},
WindowMargins->{{Automatic, 215}, {139, Automatic}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
CellLabelAutoDelete->True,
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 28, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 29408, 817, 2163, "Input"]
}
]
*)

(* End of internal cache information *)
